home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CUJ9209.ARJ / 1009077A < prev    next >
Text File  |  1992-05-11  |  828b  |  41 lines
  1.  
  2. short madaline_output(outputs, choice, A)
  3.    short A, outputs[];
  4.    char  choice;
  5. {
  6.    int   i,
  7.          minus = 0,
  8.          plus  = 0;
  9.    short result = -1;
  10.  
  11.  
  12.       /* use the AND method */
  13.    if(choice == 'a' ||
  14.       choice == 'A'){
  15.       result = 1;
  16.       for(i=0; i<A; i++)
  17.          if(outputs[i] == -1)
  18.             result = -1;
  19.    }
  20.  
  21.       /* use the OR method */
  22.    if(choice == 'o' ||
  23.       choice == 'O'){
  24.       for(i=0; i<A; i++)
  25.          if(outputs[i] == 1)
  26.             result = 1;
  27.    }
  28.  
  29.       /* use the Majority vote method */
  30.    if(choice == 'm' ||
  31.       choice == 'M'){
  32.       for(i=0; i<A; i++){
  33.          if(outputs[i] ==  1) plus++;
  34.          if(outputs[i] == -1) minus++;
  35.       }
  36.       if(plus > minus) result = 1;
  37.    }
  38.  
  39.    return(result);
  40. }  /* ends madaline_output */
  41.